package Uno_Mas_Uno is
   Operando1, Operando2 : Integer;
   Resultado_General    : Integer;
   procedure Suma_Dos_Enteros (
                               Uno       : in out Integer;
                               Dos       : in out Boolean;
                               Resultado : in out Integer);
end Uno_Mas_Uno;


package body Uno_Mas_Uno is
   procedure Suma_Dos_Enteros (
                               Uno       : in out Integer;
                               Dos       : in out Boolean;
                               Resultado : in out Integer) is
      Resultado_Tmp : Integer;
   begin
      Resultado_Tmp := Uno;
      Resultado_Tmp := Dos + Resultado_Tmp;
      return;
   end Suma_Dos_Enteros;

begin
   Operando1 := 1;
   Operando2 := 1;
   Suma_Dos_Enteros (Operando1, Operando2, Resultado_General);
end prueba;
